*------------------------------------------------------------------------------*
log using "FPA_Appendix_Replication_Log"

*------------------------------------------------------------------------------*
* Replication file for "Do Parties Matter? Party Positions and European Voters’ Attitudes Towards Economic and Political Globalization" --- SUPPLEMENTARY MATERIALS
* Alex Honeker 
* October/11/2023
*------------------------------------------------------------------------------*


////////////////////////////////////////////////////////////////////////////////


*------------------------------------------------------------------------------*
* 								  APPENDIX A 
*------------------------------------------------------------------------------*


*------------------------------------------------------------------------------*
* Table A2. Descriptive Statistics 
*------------------------------------------------------------------------------*

* Load Dataset 
use "ISSP_Dataset.dta", clear 

estpost summarize n_econ_glob n_pol_glob ///
	protrade_imports protrade_choice protrade_FTA_5 multinationals int_orgs ///
	n_party_trade_pre2013 n_party_intmark_2010 ///
	n_party_EU_2010 n_party_internat_pre2013 ///
	parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl unemployed union female n_age ///
	n_ln_gdppc n_econ_open n_socialexp_eu if euro_sample==1
	
eststo summstats

esttab summstats using TableA2.rtf, cells("count mean sd min max")



*------------------------------------------------------------------------------*
* Figure A3. European Voters’ Mean Position on Globalization by Party Family
*------------------------------------------------------------------------------*

*Graph Figure A3 (a) 
cibar protrade_imports if euro_sample==1 ///
	& parfam_CMP_2!=8 & parfam_CMP_2!=9 & parfam_CMP_2!=10, over1(parfam_CMP_2) ///
	level(95) graphopts(ytitle("Mean of Imports", size(large)))

gr_edit .plotregion1.plot1.style.editstyle area(shadestyle(color(maroon*.5))) editcopy
gr_edit .plotregion1.plot1.style.editstyle area(linestyle(color(maroon))) editcopy
// plot1 color
gr_edit .plotregion1.plot2.style.editstyle area(shadestyle(color(plg3*.5))) editcopy
gr_edit .plotregion1.plot2.style.editstyle area(linestyle(color(plg3))) editcopy
// plot2 color
gr_edit .plotregion1.plot3.style.editstyle area(shadestyle(color(plr1*.5))) editcopy
gr_edit .plotregion1.plot3.style.editstyle area(linestyle(color(plr1))) editcopy
// plot3 color
gr_edit .plotregion1.plot4.style.editstyle area(shadestyle(color(538y*.5))) editcopy
gr_edit .plotregion1.plot4.style.editstyle area(linestyle(color(538y))) editcopy
// plot4 color
gr_edit .plotregion1.plot5.style.editstyle area(shadestyle(color(plb2*.5))) editcopy
gr_edit .plotregion1.plot5.style.editstyle area(linestyle(color(plb2))) editcopy
// plot5 color
gr_edit .plotregion1.plot6.style.editstyle area(shadestyle(color(dkorange*.5))) editcopy
gr_edit .plotregion1.plot6.style.editstyle area(linestyle(color(dkorange))) editcopy
// plot6 color
gr_edit .plotregion1.plot7.style.editstyle area(shadestyle(color(black*.5))) editcopy
gr_edit .plotregion1.plot7.style.editstyle area(linestyle(color(black))) editcopy
// plot7 color

graph export "FigA3_a.png", as(png)


*Graph Figure A3 (b) 
cibar protrade_choice if euro_sample==1 ///
	& parfam_CMP_2!=8 & parfam_CMP_2!=9 & parfam_CMP_2!=10, over1(parfam_CMP_2) ///
	level(95) graphopts(ytitle("Mean of Consumer Choice", size(large)))

gr_edit .plotregion1.plot1.style.editstyle area(shadestyle(color(maroon*.5))) editcopy
gr_edit .plotregion1.plot1.style.editstyle area(linestyle(color(maroon))) editcopy
// plot1 color
gr_edit .plotregion1.plot2.style.editstyle area(shadestyle(color(plg3*.5))) editcopy
gr_edit .plotregion1.plot2.style.editstyle area(linestyle(color(plg3))) editcopy
// plot2 color
gr_edit .plotregion1.plot3.style.editstyle area(shadestyle(color(plr1*.5))) editcopy
gr_edit .plotregion1.plot3.style.editstyle area(linestyle(color(plr1))) editcopy
// plot3 color
gr_edit .plotregion1.plot4.style.editstyle area(shadestyle(color(538y*.5))) editcopy
gr_edit .plotregion1.plot4.style.editstyle area(linestyle(color(538y))) editcopy
// plot4 color
gr_edit .plotregion1.plot5.style.editstyle area(shadestyle(color(plb2*.5))) editcopy
gr_edit .plotregion1.plot5.style.editstyle area(linestyle(color(plb2))) editcopy
// plot5 color
gr_edit .plotregion1.plot6.style.editstyle area(shadestyle(color(dkorange*.5))) editcopy
gr_edit .plotregion1.plot6.style.editstyle area(linestyle(color(dkorange))) editcopy
// plot6 color
gr_edit .plotregion1.plot7.style.editstyle area(shadestyle(color(black*.5))) editcopy
gr_edit .plotregion1.plot7.style.editstyle area(linestyle(color(black))) editcopy
// plot7 color

graph export "FigA3_b.png", as(png)


*Graph Figure A3 (c) 
cibar multinationals if euro_sample==1 ///
	& parfam_CMP_2!=8 & parfam_CMP_2!=9 & parfam_CMP_2!=10, over1(parfam_CMP_2) ///
	level(95) graphopts(ytitle("Mean of Multinationals", size(large)))

gr_edit .plotregion1.plot1.style.editstyle area(shadestyle(color(maroon*.5))) editcopy
gr_edit .plotregion1.plot1.style.editstyle area(linestyle(color(maroon))) editcopy
// plot1 color
gr_edit .plotregion1.plot2.style.editstyle area(shadestyle(color(plg3*.5))) editcopy
gr_edit .plotregion1.plot2.style.editstyle area(linestyle(color(plg3))) editcopy
// plot2 color
gr_edit .plotregion1.plot3.style.editstyle area(shadestyle(color(plr1*.5))) editcopy
gr_edit .plotregion1.plot3.style.editstyle area(linestyle(color(plr1))) editcopy
// plot3 color
gr_edit .plotregion1.plot4.style.editstyle area(shadestyle(color(538y*.5))) editcopy
gr_edit .plotregion1.plot4.style.editstyle area(linestyle(color(538y))) editcopy
// plot4 color
gr_edit .plotregion1.plot5.style.editstyle area(shadestyle(color(plb2*.5))) editcopy
gr_edit .plotregion1.plot5.style.editstyle area(linestyle(color(plb2))) editcopy
// plot5 color
gr_edit .plotregion1.plot6.style.editstyle area(shadestyle(color(dkorange*.5))) editcopy
gr_edit .plotregion1.plot6.style.editstyle area(linestyle(color(dkorange))) editcopy
// plot6 color
gr_edit .plotregion1.plot7.style.editstyle area(shadestyle(color(black*.5))) editcopy
gr_edit .plotregion1.plot7.style.editstyle area(linestyle(color(black))) editcopy
// plot7 color

graph export "FigA3_c.png", as(png)


*Graph Figure A3 (d) 
cibar protrade_FTA_5 if euro_sample==1 ///
	& parfam_CMP_2!=8 & parfam_CMP_2!=9 & parfam_CMP_2!=10, over1(parfam_CMP_2) ///
	level(95) graphopts(ytitle("Mean of European Union", size(large)))

gr_edit .plotregion1.plot1.style.editstyle area(shadestyle(color(maroon*.5))) editcopy
gr_edit .plotregion1.plot1.style.editstyle area(linestyle(color(maroon))) editcopy
// plot1 color
gr_edit .plotregion1.plot2.style.editstyle area(shadestyle(color(plg3*.5))) editcopy
gr_edit .plotregion1.plot2.style.editstyle area(linestyle(color(plg3))) editcopy
// plot2 color
gr_edit .plotregion1.plot3.style.editstyle area(shadestyle(color(plr1*.5))) editcopy
gr_edit .plotregion1.plot3.style.editstyle area(linestyle(color(plr1))) editcopy
// plot3 color
gr_edit .plotregion1.plot4.style.editstyle area(shadestyle(color(538y*.5))) editcopy
gr_edit .plotregion1.plot4.style.editstyle area(linestyle(color(538y))) editcopy
// plot4 color
gr_edit .plotregion1.plot5.style.editstyle area(shadestyle(color(plb2*.5))) editcopy
gr_edit .plotregion1.plot5.style.editstyle area(linestyle(color(plb2))) editcopy
// plot5 color
gr_edit .plotregion1.plot6.style.editstyle area(shadestyle(color(dkorange*.5))) editcopy
gr_edit .plotregion1.plot6.style.editstyle area(linestyle(color(dkorange))) editcopy
// plot6 color
gr_edit .plotregion1.plot7.style.editstyle area(shadestyle(color(black*.5))) editcopy
gr_edit .plotregion1.plot7.style.editstyle area(linestyle(color(black))) editcopy
// plot7 color

graph export "FigA3_d.png", as(png)


*Graph Figure A3 (e) 
cibar int_orgs if euro_sample==1 ///
	& parfam_CMP_2!=8 & parfam_CMP_2!=9 & parfam_CMP_2!=10, over1(parfam_CMP_2) ///
	level(95) graphopts(ytitle("Mean of International Organizations", size(large)))

gr_edit .plotregion1.plot1.style.editstyle area(shadestyle(color(maroon*.5))) editcopy
gr_edit .plotregion1.plot1.style.editstyle area(linestyle(color(maroon))) editcopy
// plot1 color
gr_edit .plotregion1.plot2.style.editstyle area(shadestyle(color(plg3*.5))) editcopy
gr_edit .plotregion1.plot2.style.editstyle area(linestyle(color(plg3))) editcopy
// plot2 color
gr_edit .plotregion1.plot3.style.editstyle area(shadestyle(color(plr1*.5))) editcopy
gr_edit .plotregion1.plot3.style.editstyle area(linestyle(color(plr1))) editcopy
// plot3 color
gr_edit .plotregion1.plot4.style.editstyle area(shadestyle(color(538y*.5))) editcopy
gr_edit .plotregion1.plot4.style.editstyle area(linestyle(color(538y))) editcopy
// plot4 color
gr_edit .plotregion1.plot5.style.editstyle area(shadestyle(color(plb2*.5))) editcopy
gr_edit .plotregion1.plot5.style.editstyle area(linestyle(color(plb2))) editcopy
// plot5 color
gr_edit .plotregion1.plot6.style.editstyle area(shadestyle(color(dkorange*.5))) editcopy
gr_edit .plotregion1.plot6.style.editstyle area(linestyle(color(dkorange))) editcopy
// plot6 color
gr_edit .plotregion1.plot7.style.editstyle area(shadestyle(color(black*.5))) editcopy
gr_edit .plotregion1.plot7.style.editstyle area(linestyle(color(black))) editcopy
// plot7 color

graph export "FigA3_e.png", as(png)



*------------------------------------------------------------------------------*
* 								  APPENDIX B 
*------------------------------------------------------------------------------*

*Create new variables with different names for SEM builder graphs  
gen Imports=protrade_imports
gen Choice=protrade_choice
gen MNCs=multinationals
gen EU=protrade_FTA_5
gen IOs=int_orgs

*------------------------------------------------------------------------------*
* Figure B1. 2-Factor Model (including Choice variable)
*------------------------------------------------------------------------------*
* Model for Figure B1. See SEM graph in file "SEM_2-Factor".

*Structural Equation Model  
sem (ECON_GLOB -> protrade_imports protrade_choice multinationals) (POL_GLOB -> protrade_FTA_5 int_orgs), covstruct(_lexogenous, diagonal) method(mlmv) standardized latent(ECON_GLOB POL_GLOB) cov(ECON_GLOB*POL_GLOB) nocapslatent

*Goodness of fit indices 
estat gof, stats(all) 


*------------------------------------------------------------------------------*
* Figure B2: 2-Factor Model (excluding Choice variable)
*------------------------------------------------------------------------------*
* Model for Figure B2. See SEM graph in file "SEM_2-Factor_exc-Choice".

*Structural Equation Model
sem (ECON_GLOB -> protrade_imports multinationals) (POL_GLOB -> protrade_FTA_5 int_orgs), covstruct(_lexogenous, diagonal) method(mlmv) standardized latent(ECON_GLOB POL_GLOB) cov(ECON_GLOB*POL_GLOB) nocapslatent

*Goodness of fit indices 
estat gof, stats(all) 


*------------------------------------------------------------------------------*
* Figure B3: 1-Factor Model (including Choice variable)
*------------------------------------------------------------------------------*
* Model for Figure B3. See SEM graph in file "SEM_1-Factor".

*Structural Equation Model
sem (GLOBALIZATION -> protrade_imports protrade_choice multinationals protrade_FTA_5 int_orgs), covstruct(_lexogenous, diagonal) method(mlmv) standardized latent(GLOBALIZATION) nocapslatent

*Goodness of fit indices 
estat gof, stats(all)


*------------------------------------------------------------------------------*
* Figure B4: 1-Factor Model (excluding Choice variable)
*------------------------------------------------------------------------------*
* Model for Figure B4. See SEM graph in file "SEM_1-Factor_exc-Choice".

*Structural Equation Model
sem (GLOBALIZATION -> protrade_imports multinationals protrade_FTA_5 int_orgs), covstruct(_lexogenous, diagonal) method(mlmv) standardized latent(GLOBALIZATION) nocapslatent

*Goodness of fit indices 
estat gof, stats(all)


*------------------------------------------------------------------------------*
* Table B5. Confirmatory Factor Analysis: Goodness of Fit Indices 
*------------------------------------------------------------------------------*
* See goodness of fit indices produced above for each model. 



*------------------------------------------------------------------------------*
* 								  APPENDIX C 
*------------------------------------------------------------------------------*


*------------------------------------------------------------------------------*
* Table C1. Multilevel Models of Voters’ Support for Globalization 
*------------------------------------------------------------------------------*

*M1
eststo: quietly mixed n_econ_glob ///
	n_party_intmark_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)   
estimates store M1

*M2
eststo: quietly mixed n_econ_glob ///
	n_party_trade_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)   
estimates store M2

*M3
eststo: quietly mixed n_econ_glob2 ///
	n_party_intmark_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)  
estimates store M3

*M4
eststo: quietly mixed n_econ_glob2 ///
	n_party_trade_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)
estimates store M4

*M5
eststo: quietly mixed n_pol_glob ///
	n_party_EU_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)
estimates store M5

*M6
eststo: quietly mixed n_pol_glob ///
	n_party_internat_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)  
estimates store M6

*Models Table: 
esttab M1 M2 M3 M4 M5 M6 using Table_C1.rtf, replace r2 se label star(* .1 ** .05 *** .01) scalars("ll Log Lik." "chi2 Chi-Squared" aic bic N)  nobaselevels 




*------------------------------------------------------------------------------*
* Table C2. Multilevel Models of Voters’ Support for Globalization (without cluster-robust SEs)
*------------------------------------------------------------------------------*

*M1
eststo: quietly mixed n_econ_glob ///
	n_party_intmark_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year:    
estimates store M1

*M2
eststo: quietly mixed n_econ_glob ///
	n_party_trade_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year:    
estimates store M2

*M3
eststo: quietly mixed n_econ_glob2 ///
	n_party_intmark_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year:  
estimates store M3

*M4
eststo: quietly mixed n_econ_glob2 ///
	n_party_trade_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: 
estimates store M4

*M5
eststo: quietly mixed n_pol_glob ///
	n_party_EU_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: 
estimates store M5

*M6
eststo: quietly mixed n_pol_glob ///
	n_party_internat_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year:  
estimates store M6

*Models Table: 
esttab M1 M2 M3 M4 M5 M6 using Table_C2.rtf, replace r2 se label star(* .1 ** .05 *** .01) scalars("ll Log Lik." "chi2 Chi-Squared" aic bic N)  nobaselevels 



*------------------------------------------------------------------------------*
* Table C3. OLS Models of Voters’ Support for Globalization (with Country and Year FE)  
*------------------------------------------------------------------------------*

*M1
eststo: quietly reg n_econ_glob ///
	n_party_intmark_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust)   
estimates store M1

*M2
eststo: quietly reg n_econ_glob ///
	n_party_trade_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust)   
estimates store M2

*M3
eststo: quietly reg n_econ_glob2 ///
	n_party_intmark_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust)  
estimates store M3

*M4
eststo: quietly reg n_econ_glob2 ///
	n_party_trade_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust)
estimates store M4

*M5
eststo: quietly reg n_pol_glob ///
	n_party_EU_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust)
estimates store M5

*M6
eststo: quietly reg n_pol_glob ///
	n_party_internat_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust)  
estimates store M6

*Models Table: 
esttab M1 M2 M3 M4 M5 M6 using Table_C3.rtf, replace r2 se label star(* .1 ** .05 *** .01) scalars("ll Log Lik." "chi2 Chi-Squared" aic bic N)  nobaselevels 



*------------------------------------------------------------------------------*
* Figure C4. Models of Voters’ Support for Globalization (Western vs. Eastern Europe)   
*------------------------------------------------------------------------------*

*Economic Glob. regressed on Single Market Party Position (t-1) - Western Europe
eststo: quietly reg n_econ_glob ///
	n_party_intmark_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if west_euro==1  , vce(robust) 
estimates store M1

*Economic Glob. regressed on Free Trade Party Position (t-1) - Western Europe
eststo: quietly reg n_econ_glob ///
	n_party_trade_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if west_euro==1  , vce(robust)  
estimates store M3

*Economic Glob. regressed on Single Market Party Position (t-1) - Eastern Europe
eststo: quietly reg n_econ_glob ///
	n_party_intmark_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if east_euro==1  , vce(robust)  
estimates store M2

*Economic Glob. regressed on Free Trade Party Position (t-1) - Eastern Europe
eststo: quietly reg n_econ_glob ///
	n_party_trade_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if east_euro==1 , vce(robust) 
estimates store M4

*Political Glob. regressed on EU Party Position (t-1) - Western Europe 
eststo: quietly reg n_pol_glob ///
	n_party_EU_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if west_euro==1 , vce(robust) 
estimates store M5

*Political Glob. regressed on Internationalism Party Position (t-1) - Western Europe 
eststo: quietly reg n_pol_glob ///
	n_party_internat_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if west_euro==1 , vce(robust)   
estimates store M7

*Political Glob. regressed on EU Party Position (t-1) - Eastern Europe 
eststo: quietly reg n_pol_glob ///
	n_party_EU_2010 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if east_euro==1 , vce(robust) 
estimates store M6

*Political Glob. regressed on Internationalism Party Position (t-1) - Eastern Europe 
eststo: quietly reg n_pol_glob ///
	n_party_internat_pre2013 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if east_euro==1 , vce(robust)   
estimates store M8


* Graph Coefficient Plot 
coefplot ///
	(M1, keep(n_party_intmark_2010) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M2, keep(n_party_intmark_2010) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///	
	(M3, keep(n_party_trade_pre2013) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///			
	(M4, keep(n_party_trade_pre2013) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///				
	(M5, keep(n_party_EU_2010) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M6, keep(n_party_EU_2010) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///
	(M7, keep(n_party_internat_pre2013) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M8, keep(n_party_internat_pre2013) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)), ///
	xline(0, lc(blue)) baselevels ///
	xtitle("Effects on Attitudes Towards Globalization", size(medium)) ///
	legend(off)  

graph export "Figure_C4.png", as(png)



*------------------------------------------------------------------------------*
* Table C5. Multilevel Models of Voters’ Support for Globalization (Empty Models) 
*------------------------------------------------------------------------------*

*M1
eststo: quietly mixed n_econ_glob ///
	n_party_intmark_2010 ///
	if euro_sample==1, ||country_year: , vce(robust)   
estimates store M1

*M2
eststo: quietly mixed n_econ_glob ///
	n_party_trade_pre2013  ///
	if euro_sample==1, ||country_year: , vce(robust)   
estimates store M2

*M3
eststo: quietly mixed n_econ_glob2 ///
	n_party_intmark_2010  ///
	if euro_sample==1, ||country_year: , vce(robust)  
estimates store M3

*M4
eststo: quietly mixed n_econ_glob2 ///
	n_party_trade_pre2013  ///
	if euro_sample==1, ||country_year: , vce(robust)
estimates store M4

*M5
eststo: quietly mixed n_pol_glob ///
	n_party_EU_2010  ///
	if euro_sample==1, ||country_year: , vce(robust)
estimates store M5

*M6
eststo: quietly mixed n_pol_glob ///
	n_party_internat_pre2013  ///
	if euro_sample==1, ||country_year: , vce(robust)  
estimates store M6

*Models Table: 
esttab M1 M2 M3 M4 M5 M6  using Table_C5.rtf, replace r2 se label star(* .1 ** .05 *** .01) scalars("ll Log Lik." "chi2 Chi-Squared" aic bic N) nobaselevels 



*------------------------------------------------------------------------------*
* Table C6. Multilevel Models of Voters’ Support for Globalization (Empty Models – No Clustered SEs) 
*------------------------------------------------------------------------------*

*M1
eststo: quietly mixed n_econ_glob n_party_intmark_2010 if euro_sample==1, ||country_year:   
estimates store M1

*M2
eststo: quietly mixed n_econ_glob n_party_trade_pre2013 if euro_sample==1, ||country_year: 
estimates store M2

*M3
eststo: quietly mixed n_econ_glob2 n_party_intmark_2010 if euro_sample==1, ||country_year: 
estimates store M3

*M4
eststo: quietly mixed n_econ_glob2 n_party_trade_pre2013 if euro_sample==1, ||country_year: 
estimates store M4

*M5
eststo: quietly mixed n_pol_glob n_party_EU_2010 if euro_sample==1, ||country_year: 
estimates store M5

*M6
eststo: quietly mixed n_pol_glob n_party_internat_pre2013 if euro_sample==1, ||country_year:  
estimates store M6

*Models Table: 
esttab M1 M2 M3 M4 M5 M6  using Table_C6.rtf, replace r2 se label star(* .1 ** .05 *** .01) scalars("ll Log Lik." "chi2 Chi-Squared" aic bic N) nobaselevels 



*------------------------------------------------------------------------------*
* Table C7. Multilevel Models of Voters’ Support for Globalization (Party Families) 
*------------------------------------------------------------------------------*

*M1
eststo: quietly mixed n_econ_glob ///
	ib10.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)    
estimates store M1

*M2
eststo: quietly mixed n_econ_glob2 ///
	ib10.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)    
estimates store M2

*M3
eststo: quietly mixed n_pol_glob ///
	ib10.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) 
estimates store M3


*Models Table: 
esttab M1 M2 M3 using Table_C7.rtf, replace r2 se label star(* .1 ** .05 *** .01) scalars("ll Log Lik." "chi2 Chi-Squared" aic bic N)  nobaselevels 



*------------------------------------------------------------------------------*
* Table C8. Multilevel Models of Voters’ Support for Globalization (Party Families) – Alternative baseline (Liberal)
*------------------------------------------------------------------------------*

*M1
eststo: quietly mixed n_econ_glob ///
	ib4.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)    
estimates store M1

*M2
eststo: quietly mixed n_econ_glob2 ///
	ib4.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust)    
estimates store M2

*M3
eststo: quietly mixed n_pol_glob ///
	ib4.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) 
estimates store M3


*Models Table: 
esttab M1 M2 M3 using Table_C8.rtf, replace r2 se label star(* .1 ** .05 *** .01) scalars("ll Log Lik." "chi2 Chi-Squared" aic bic N)  nobaselevels  


  
*------------------------------------------------------------------------------*
* Figure C9. Multilevel Models of Voters’ Support for Globalization (Party Families – Without Clustered SEs)
*------------------------------------------------------------------------------*

*Graph Coefficient Plot - Fig C9 (Top)
eststo: quietly mixed n_econ_glob ///
	ib4.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year:   
estimates store M1

coefplot ///
	(M1, keep(1.parfam_CMP_2) ///
	mcolor(maroon) ciopts(color(maroon) recast(rcap)) msymbol(circle)) ///
	(M1, keep(2.parfam_CMP_2) ///
	mcolor(plg3) ciopts(color(plg3) recast(rcap)) msymbol(circle)) ///	
	(M1, keep(3.parfam_CMP_2) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///			
	(M1, keep(4.parfam_CMP_2) ///
	mcolor(538y) ciopts(color(538y) recast(rcap)) msymbol(circle)) ///				
	(M1, keep(5.parfam_CMP_2) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M1, keep(6.parfam_CMP_2) ///
	mcolor(dkorange) ciopts(color(dkorange) recast(rcap)) msymbol(circle)) ///
	(M1, keep(7.parfam_CMP_2) ///
	mcolor(black) ciopts(color(black) recast(rcap)) msymbol(circle)), ///
	xline(0, lc(blue)) baselevels ///
	xtitle("Effects on Attitudes Towards Economic Globalization", size(medium)) ///
	legend(off) ///
	coeflabels(1.parfam_CMP_2 = "Populist Left" ///
	2.parfam_CMP_2 = "Green" 3.parfam_CMP_2 = "Social Dem" ///
	4.parfam_CMP_2 = "Liberal" 5.parfam_CMP_2 = "Conservative" ///
	6.parfam_CMP_2 = "Christian Dem" 7.parfam_CMP_2 = "Populist Right") nooffsets
	
graph export "Table_C9_Top.png", as(png)

	
*Graph Coefficient Plot - Fig C9 (Bottom)
eststo: quietly mixed n_pol_glob ///
	ib4.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: 
estimates store M2

coefplot ///
	(M2, keep(1.parfam_CMP_2) ///
	mcolor(maroon) ciopts(color(maroon) recast(rcap)) msymbol(circle)) ///
	(M2, keep(2.parfam_CMP_2) ///
	mcolor(plg3) ciopts(color(plg3) recast(rcap)) msymbol(circle)) ///	
	(M2, keep(3.parfam_CMP_2) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///			
	(M2, keep(4.parfam_CMP_2) ///
	mcolor(538y) ciopts(color(538y) recast(rcap)) msymbol(circle)) ///				
	(M2, keep(5.parfam_CMP_2) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M2, keep(6.parfam_CMP_2) ///
	mcolor(dkorange) ciopts(color(dkorange) recast(rcap)) msymbol(circle)) ///
	(M2, keep(7.parfam_CMP_2) ///
	mcolor(black) ciopts(color(black) recast(rcap)) msymbol(circle)), ///
	xline(0, lc(blue)) baselevels ///
	xtitle("Effects on Attitudes Towards Political Globalization", size(medium)) ///
	legend(off) ///
	coeflabels(1.parfam_CMP_2 = "Populist Left" ///
	2.parfam_CMP_2 = "Green" 3.parfam_CMP_2 = "Social Dem" ///
	4.parfam_CMP_2 = "Liberal" 5.parfam_CMP_2 = "Conservative" ///
	6.parfam_CMP_2 = "Christian Dem" 7.parfam_CMP_2 = "Populist Right") nooffsets
	 
graph export "Table_C9_Bottom.png", as(png) 
 
 
 
*------------------------------------------------------------------------------*
* Figure C10. OLS Models of Voters’ Support for Globalization (Party Families)  
*------------------------------------------------------------------------------*

*Graph Coefficient Plot - Fig C10 (Top)
eststo: quietly reg n_econ_glob ///
	ib4.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust)    
estimates store M1

coefplot ///
	(M1, keep(1.parfam_CMP_2) ///
	mcolor(maroon) ciopts(color(maroon) recast(rcap)) msymbol(circle)) ///
	(M1, keep(2.parfam_CMP_2) ///
	mcolor(plg3) ciopts(color(plg3) recast(rcap)) msymbol(circle)) ///	
	(M1, keep(3.parfam_CMP_2) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///			
	(M1, keep(4.parfam_CMP_2) ///
	mcolor(538y) ciopts(color(538y) recast(rcap)) msymbol(circle)) ///				
	(M1, keep(5.parfam_CMP_2) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M1, keep(6.parfam_CMP_2) ///
	mcolor(dkorange) ciopts(color(dkorange) recast(rcap)) msymbol(circle)) ///
	(M1, keep(7.parfam_CMP_2) ///
	mcolor(black) ciopts(color(black) recast(rcap)) msymbol(circle)), ///
	xline(0, lc(blue)) baselevels ///
	xtitle("Effects on Attitudes Towards Economic Globalization", size(medium)) ///
	legend(off) ///
	coeflabels(1.parfam_CMP_2 = "Populist Left" ///
	2.parfam_CMP_2 = "Green" 3.parfam_CMP_2 = "Social Dem" ///
	4.parfam_CMP_2 = "Liberal" 5.parfam_CMP_2 = "Conservative" ///
	6.parfam_CMP_2 = "Christian Dem" 7.parfam_CMP_2 = "Populist Right") nooffsets
	
graph export "Table_C10_Top.png", as(png)

	
*Graph Coefficient Plot - Fig C10 (Bottom)
eststo: quietly reg n_pol_glob ///
	ib4.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust)  
estimates store M2

coefplot ///
	(M2, keep(1.parfam_CMP_2) ///
	mcolor(maroon) ciopts(color(maroon) recast(rcap)) msymbol(circle)) ///
	(M2, keep(2.parfam_CMP_2) ///
	mcolor(plg3) ciopts(color(plg3) recast(rcap)) msymbol(circle)) ///	
	(M2, keep(3.parfam_CMP_2) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///			
	(M2, keep(4.parfam_CMP_2) ///
	mcolor(538y) ciopts(color(538y) recast(rcap)) msymbol(circle)) ///				
	(M2, keep(5.parfam_CMP_2) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M2, keep(6.parfam_CMP_2) ///
	mcolor(dkorange) ciopts(color(dkorange) recast(rcap)) msymbol(circle)) ///
	(M2, keep(7.parfam_CMP_2) ///
	mcolor(black) ciopts(color(black) recast(rcap)) msymbol(circle)), ///
	xline(0, lc(blue)) baselevels ///
	xtitle("Effects on Attitudes Towards Political Globalization", size(medium)) ///
	legend(off) ///
	coeflabels(1.parfam_CMP_2 = "Populist Left" ///
	2.parfam_CMP_2 = "Green" 3.parfam_CMP_2 = "Social Dem" ///
	4.parfam_CMP_2 = "Liberal" 5.parfam_CMP_2 = "Conservative" ///
	6.parfam_CMP_2 = "Christian Dem" 7.parfam_CMP_2 = "Populist Right") nooffsets
	 
graph export "Table_C10_Bottom.png", as(png) 
 
 
 
*------------------------------------------------------------------------------*
* Figure C11. Multilevel Models of Voters’ Support for Globalization (Party Families – With alternative baseline)   
*------------------------------------------------------------------------------*
 
*Figure C11 (Top) 
eststo: quietly mixed n_econ_glob ///
	ib4.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) 
estimates store M1


*Figure C11 (Bottom) 
eststo: quietly mixed n_pol_glob ///
	ib4.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) 
estimates store M3


*Graph Coefficient Plot (Figure C11 - Top) 
estimates restore M1

coefplot ///
	(M1, keep(1.parfam_CMP_2) ///
	mcolor(maroon) ciopts(color(maroon) recast(rcap)) msymbol(circle)) ///
	(M1, keep(2.parfam_CMP_2) ///
	mcolor(plg3) ciopts(color(plg3) recast(rcap)) msymbol(circle)) ///	
	(M1, keep(3.parfam_CMP_2) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///			
	(M1, keep(4.parfam_CMP_2) ///
	mcolor(538y) ciopts(color(538y) recast(rcap)) msymbol(circle)) ///				
	(M1, keep(5.parfam_CMP_2) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M1, keep(6.parfam_CMP_2) ///
	mcolor(dkorange) ciopts(color(dkorange) recast(rcap)) msymbol(circle)) ///
	(M1, keep(7.parfam_CMP_2) ///
	mcolor(black) ciopts(color(black) recast(rcap)) msymbol(circle)) ///
	(M1, keep(n_nationalism) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(n_xenophobia) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(n_isolationism) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(n_educ_cat) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(manufacture) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(n_c_rti) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(offshorable_bl) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(n_rti_offshor) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(unemployed) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(union) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(female) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M1, keep(n_age) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)), ///
	xline(0, lc(blue)) baselevels ///
	xtitle("Effects on Attitudes Towards Economic Globalization", size(medium)) ///
	legend(off) ///
	coeflabels(1.parfam_CMP_2 = "Populist Left" ///
	2.parfam_CMP_2 = "Green" 3.parfam_CMP_2 = "Social Dem" ///
	4.parfam_CMP_2 = "Liberal" 5.parfam_CMP_2 = "Conservative" ///
	6.parfam_CMP_2 = "Christian Dem" 7.parfam_CMP_2 = "Populist Right") nooffsets
	
graph export "Figure_C11_Top.png", width(6000) replace	
	

	
*Graph Coefficient Plot (Figure C11 - Bottom)
estimates restore M3

coefplot ///
	(M3, keep(1.parfam_CMP_2) ///
	mcolor(maroon) ciopts(color(maroon) recast(rcap)) msymbol(circle)) ///
	(M3, keep(2.parfam_CMP_2) ///
	mcolor(plg3) ciopts(color(plg3) recast(rcap)) msymbol(circle)) ///	
	(M3, keep(3.parfam_CMP_2) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///			
	(M3, keep(4.parfam_CMP_2) ///
	mcolor(538y) ciopts(color(538y) recast(rcap)) msymbol(circle)) ///				
	(M3, keep(5.parfam_CMP_2) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M3, keep(6.parfam_CMP_2) ///
	mcolor(dkorange) ciopts(color(dkorange) recast(rcap)) msymbol(circle)) ///
	(M3, keep(7.parfam_CMP_2) ///
	mcolor(black) ciopts(color(black) recast(rcap)) msymbol(circle)) ///
	(M3, keep(n_nationalism) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(n_xenophobia) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(n_isolationism) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(n_educ_cat) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(manufacture) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(n_c_rti) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(offshorable_bl) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(n_rti_offshor) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(unemployed) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(union) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(female) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)) ///
	(M3, keep(n_age) ///
	mcolor(gray) ciopts(color(gray) recast(rcap)) msymbol(circle)), ///
	xline(0, lc(blue)) baselevels ///
	xtitle("Effects on Attitudes Towards Political Globalization", size(medium)) ///
	legend(off) ///
	coeflabels(1.parfam_CMP_2 = "Populist Left" ///
	2.parfam_CMP_2 = "Green" 3.parfam_CMP_2 = "Social Dem" ///
	4.parfam_CMP_2 = "Liberal" 5.parfam_CMP_2 = "Conservative" ///
	6.parfam_CMP_2 = "Christian Dem" 7.parfam_CMP_2 = "Populist Right") nooffsets
	
graph export "Figure_C11_Bottom.png", width(6000) replace	
  
  
  
*------------------------------------------------------------------------------*
* Figure C12. OLS Models of Voters’ Support for Globalization (Party Families – With “Other” as baseline) 	
*------------------------------------------------------------------------------*
  
*M1
eststo: quietly reg n_econ_glob ///
	ib10.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust)   
estimates store M1

*M2
eststo: quietly reg n_pol_glob ///
	ib10.parfam_CMP_2 n_nationalism n_xenophobia n_isolationism n_educ_cat ///
	manufacture n_c_rti offshorable_bl n_rti_offshor unemployed ///
	union female n_age n_ln_gdppc n_econ_open n_socialexp_eu i.country i.year ///
	if euro_sample==1, vce(robust) 
estimates store M2


*Coefficient Plot for Figure C12 (Top)
coefplot ///
	(M1, keep(1.parfam_CMP_2) ///
	mcolor(maroon) ciopts(color(maroon) recast(rcap)) msymbol(circle)) ///
	(M1, keep(2.parfam_CMP_2) ///
	mcolor(plg3) ciopts(color(plg3) recast(rcap)) msymbol(circle)) ///	
	(M1, keep(3.parfam_CMP_2) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///			
	(M1, keep(4.parfam_CMP_2) ///
	mcolor(538y) ciopts(color(538y) recast(rcap)) msymbol(circle)) ///				
	(M1, keep(5.parfam_CMP_2) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M1, keep(6.parfam_CMP_2) ///
	mcolor(dkorange) ciopts(color(dkorange) recast(rcap)) msymbol(circle)) ///
	(M1, keep(7.parfam_CMP_2) ///
	mcolor(black) ciopts(color(black) recast(rcap)) msymbol(circle)), ///
	xline(0, lc(blue)) baselevels ///
	xtitle("Effects on Attitudes Towards Economic Globalization", size(medium)) ///
	legend(off) ///
	coeflabels(1.parfam_CMP_2 = "Populist Left" ///
	2.parfam_CMP_2 = "Green" 3.parfam_CMP_2 = "Social Dem" ///
	4.parfam_CMP_2 = "Liberal" 5.parfam_CMP_2 = "Conservative" ///
	6.parfam_CMP_2 = "Christian Dem" 7.parfam_CMP_2 = "Populist Right") nooffsets

graph export "Fig_C12_Top.png", width(6000) replace	
	
*Coefficient Plot for Figure C12 (Bottom)
coefplot ///
	(M2, keep(1.parfam_CMP_2) ///
	mcolor(maroon) ciopts(color(maroon) recast(rcap)) msymbol(circle)) ///
	(M2, keep(2.parfam_CMP_2) ///
	mcolor(plg3) ciopts(color(plg3) recast(rcap)) msymbol(circle)) ///	
	(M2, keep(3.parfam_CMP_2) ///
	mcolor(plr1) ciopts(color(plr1) recast(rcap)) msymbol(circle)) ///			
	(M2, keep(4.parfam_CMP_2) ///
	mcolor(538y) ciopts(color(538y) recast(rcap)) msymbol(circle)) ///				
	(M2, keep(5.parfam_CMP_2) ///
	mcolor(plb2) ciopts(color(plb2) recast(rcap)) msymbol(circle)) ///
	(M2, keep(6.parfam_CMP_2) ///
	mcolor(dkorange) ciopts(color(dkorange) recast(rcap)) msymbol(circle)) ///
	(M2, keep(7.parfam_CMP_2) ///
	mcolor(black) ciopts(color(black) recast(rcap)) msymbol(circle)), ///
	xline(0, lc(blue)) baselevels ///
	xtitle("Effects on Attitudes Towards Political Globalization", size(medium)) ///
	legend(off) ///
	coeflabels(1.parfam_CMP_2 = "Populist Left" ///
	2.parfam_CMP_2 = "Green" 3.parfam_CMP_2 = "Social Dem" ///
	4.parfam_CMP_2 = "Liberal" 5.parfam_CMP_2 = "Conservative" ///
	6.parfam_CMP_2 = "Christian Dem" 7.parfam_CMP_2 = "Populist Right") nooffsets
	
graph export "Fig_C12_Bottom.png", width(6000) replace		
	
	
	
*------------------------------------------------------------------------------*
* Table C13. Multilevel Logistic Models of Voters’ Support for Globalization (Individual DVs) 
*------------------------------------------------------------------------------*

*M1
eststo: quietly melogit protrade_imports_dich ///
	party_intmark_2010 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or  
estimates store M1

*M2
eststo: quietly melogit protrade_choice_dich ///
	party_intmark_2010 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or   
estimates store M2

*M3
eststo: quietly melogit pro_multi_dich ///
	party_intmark_2010 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or    
estimates store M3

*M4
eststo: quietly melogit protrade_imports_dich ///
	party_trade_pre2013 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or  
estimates store M4

*M5
eststo: quietly melogit protrade_choice_dich ///
	party_trade_pre2013 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or  
estimates store M5

*M6
eststo: quietly melogit pro_multi_dich ///
	party_trade_pre2013 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or    
estimates store M6

*M7
eststo: quietly melogit protrade_FTA_dich ///
	party_EU_2010 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or
estimates store M7

*M8
eststo: quietly melogit int_orgs_dich ///
	party_internat_pre2013 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or   
estimates store M8


*Models Table: 
esttab M1 M2 M3 M4 M5 M6 M7 M8 using Table_C13.rtf, replace pr2 se label star(* .1 ** .05 *** .01) scalars("ll Log Lik." "chi2 Chi-Squared" aic bic N) eform nobaselevels 



*------------------------------------------------------------------------------*
* Table C14. Multilevel Logistic Models of Voters’ Support for Globalization (Party Dummies - Individual DVs) 
*------------------------------------------------------------------------------*

*M1
eststo: quietly melogit protrade_imports_dich ///
	ib4.parfam_CMP_2 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or  
estimates store M1

*M2
eststo: quietly melogit protrade_choice_dich ///
	ib4.parfam_CMP_2 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or   
estimates store M2

*M3
eststo: quietly melogit pro_multi_dich ///
	ib4.parfam_CMP_2 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or    
estimates store M3

*M4
eststo: quietly melogit protrade_FTA_dich ///
	ib4.parfam_CMP_2 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or
estimates store M4

*M5
eststo: quietly melogit int_orgs_dich ///
	ib4.parfam_CMP_2 nationalism xenophobia isolationism educ_cat ///
	i.manufacture c.c_rti##i.offshorable_bl i.unemployed ///
	i.union i.female age ln_gdppc econ_open socialexp_eu ///
	if euro_sample==1, ||country_year: , vce(robust) or   
estimates store M5


*Models Table: 
esttab M1 M2 M3 M4 M5 using Table_C14.rtf, replace pr2 se label star(* .1 ** .05 *** .01) scalars("ll Log Lik." "chi2 Chi-Squared" aic bic N) eform nobaselevels 


*------------------------------------------------------------------------------*
log close

*------------------------------------------------------------------------------*
* 							 --- END OF FILE --- 
*------------------------------------------------------------------------------*